home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr11 / gedvw105.zip / SEARCH.PRG < prev   
Text File  |  1995-03-05  |  607b  |  36 lines
  1. *
  2. *    This searches for all records containing $ARG and prints them,
  3. *    in GEDCOM format, to $ARG.GV.
  4. *
  5. *    for GEDView 1.05
  6. *    michael@genealogy.emcee.com - 3 Mar 1995
  7. *
  8. set format off
  9. compare $ARG
  10. ifequal
  11.     goto the_end
  12. set #outfile $ARG.gv
  13. show Creating $OUTFILE ...
  14. remember record
  15. go 1
  16. save $OUTFILE "0 HEAD\J"
  17. append $OUTFILE "1 SOUR GEDVIEW 1.05\J"
  18. find global $ARG
  19. iffailed
  20.     goto the_end
  21.  
  22. :continue
  23.     append $OUTFILE record
  24.     ifescape
  25.         goto the_end    
  26.     find next
  27.     ifequal
  28.         goto continue
  29.  
  30. :the_end
  31.     append $OUTFILE "0 TRLR\J"
  32.     set format on
  33.     set display on
  34.     go record
  35.     end
  36.